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;>>>>>>>>>>>>>>>>>>>>>>>> 
; > 

;> Module: Data Exception Handiinq 

}> 

;> PROCEDURE: Data_Ex_HandleK ErrorCode : ? BITS { IrO/Bits 6:0 > ) 

;> 

;>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 
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>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: DataJEx-Handler { data exception handler } 

> 

> This procedure is responsible for cleaning up after some sort 

> of data error C spare ing, bad-blocking, etc. >. It is 

> assumed that if spare ing is going to occur that correct data must 

> be residing in Buffer2. 

> 

> Inputs: 

> ErrorCode : ? BITS { IrO/Bits 6:0 } 

> 

> Outputs: { none } 

> Algorithm: 

> 

> BEGIN 

> IF N0T< DiskStatus.MrJOp ) THEN SetStatus< ReadErr-or > 

> CRSE ErrorCode OF 

> : SetStatusC OperationFai led > 

> 

> 2 : Spare < Spare > 

> 

> 4 : Spare < BadBlock > 

> SetStatus< OperationFai led > 

> 

> 6 : SetStatus< ErrorCount > 

y 

> 8 : SetStatusC NoHeaderFound > 

> Spare < BadBlock > 

> SetStatus< OperationFai led ) 

> 

> ft : SetStatusC NoHeaderFound > 

> SpareC Spare > 

> OTHERWISE Abort 

> END 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
-FIN 

.DO Internal 

. LSTON 

.Page 

.FIN 

Data JEx_Hand I er : 

Push !r0 .save error code 



Co I ! ExtPush_Uector ;save state 

Tm DiskStat..*Wr_Gp 

Jr Z , Da ta_£x_RdErr 

Ld !r0,*3 ; load status byte 3 

Ld !M,WrErrCnt 

Call SetStatus 

Jr Data_ExJCase 

Data_Ex_RdErr : Call SS_ReadErr 

Data_Ex_£ase: Ld !r2, ».HIBVTE. Set_SeekNeeded 

Ld !r3,*.L0WBVTE. SetJSeekHeeded 

Call BankJCal I ; update cache on next Pro/Sys command 

Pop !r1 ;get error code back 

find !r1,*$7F ;mask off error flag 

Jm ! r 1 f *0 1 ; see I f error code i s odd 

Jr flz, Da ta_Ex_Rbor t 

Cp ! r 1 j, *ExJCase_J1ax ; bounds check 

Jr Le,Data_Ex_€innd 

Da ta_Ex_flbor t : Cal i ftbor t 

Data_Ex_Cmnd: Ld !r2,*.HIBYTE. Ex_Jp_Tbl 

Ld !r3,*.LQWBYTE. Ex^Jp_Tb$ 

fidd !r3, !r1 ;add offset 

fide !r-2,*0 

Ldc ! rE f & ! ! r2 ; ge t rou t i ne to execu te 

lncu> Mr2 

Ldc !rF,§!!r2 

Jp SMrE ;go to routine 

Ex_Jp_Tbi: .DW XJJndeter 

.DW XJSpare 

.DW X_BadBlock 

.DW XJReadErr 

.DW X_HdrBadBlock 

.DW X_HdrSpare 

XJUndeter: Call SSJOpFail 

Jr ExceptJReturn 

X_JSpare: Ld Irfi^Spare 

XJSprJCall: Call SprBlock 

Jr ExceptJReturn 

X_BadBlock: Ld !r4,*4 ; retry 4 times 

X_BB_Lp: Push Ir4' 

Ca 1 1 Bad_Recover 

Pop !r4 

Jr Nz/X_£pare 

Djnz !r4,XJ3B_Lp 

Call SSJOpFail 

Ld !rfi,*BadBlock 

Jr X_Spr_Cal 1 

X_ReadErr: Call SSJReadErr 

Ld !r2,».Hl6YTE. Buf2_To_EBuf 

Ld !r3,*.L0WBYTE. But2_To_RBuf 

Calf BankJCal! 



Excep t_Re turn : Cai i 
Jp 



ExtPop_Uector 
Bank_Ret 



X_HdrBadBioek: 



X_HdrJCrct: 



X_HdrSpare : 



Cai i 


Bad-Recover 




Jr 


Nz,X-Spare 




Cai 1 


SSJMoHdr 




Co! i 


LocateSector 




Ld 


!r2,«.HIBVTE. 


ReadHdr 


Ld 


!r-3,*.L0WBYTE 


ReadHdr 


Cai i 


BankJCa! i 




Jr 


Z,X_HdrJCrct 




Ld 


»r2,#.HIBVTE. 


RBuf_To_Buf2 


Ld 


!r3,*.L0WBVTE 


RBuf_To_Buf2 


Cai i 


BankJCa i i 




Jr 


XJSpare 




Ld 


!r2,*.HIBYTE. 


Ecc 


Ld 


!r3,*.L0UBVTE 


Ecc 


Cai i 


BankJCa i 1 




Jr 


Z,X_BadBlock 




Cali 


SSJtoHdr 




Jr 


XjSpare 





.LSTOFF 

.00 External 

.LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Function: BadJRecover 



This function is called when a biock can not be read, either the 
header can not be found or there is a hard data error. The purpose 
here is to use the auto offset capabilities of the servo controller 
and reread the block. 

Inputs: { none } 

Outputs: 

BadJRecover: BOOLEAN { zero flag set if failure on retry } 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.00 internal 

. LSTON 

.Paqe 

.FIN 



Bad-Recover : 



Tib DiskS tat, *0f fsetJOn ; check for auto_offset 
Jr Nz,B_RcvrJ?.ead 

Cali ReSeek 



B_Rcvr_Read : Ca 1 1 Read JCommon 

Jr Nz^Bad-Rcvr-Ret 

Cp !rO,*Error+ExJ3eadErr 

Jr Z, Bad JRc_Spr 



Cp 
Jr 



Cp 
Jr 

Ld 

Bad_Rc-J5et: Or 
Jr 

Bad_Rc_Spr: Ld 
Jr 

Bad_Rc_Ecc : Ld 
Ld 
Cal I 

Bad_Rcvr_Ret: Ret 



! rO f »Error+Ex_BadB I ock 
Z,Bad_Rc_Ecc 

! rO f »Error+ExJ5prB i ock 
Z_,Bad_RcJSpr 

!r0, !rO 
Bad_Rcvr_Ret 

!rO,*1 
Bad_Rc.JSet 

!r2,*.HIBVTE. Ecc 
!r3,*.L0WBVTE. Ecc 
BankJCa! I 
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